subroutine abnormal_stop(f_str1,m_str2)
  implicit none
  character :: f_str1*(*),m_str2*(*)
900 format("Critical error::",a,"/",a)
  print 900,trim(adjustl(f_str1)),trim(adjustl(m_str2))
  stop
end subroutine abnormal_stop
